home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue50 / Localise / eng / DataM.dfm / DataM.txt
Encoding:
Text File  |  1999-08-10  |  2.1 KB  |  93 lines
  1. object DataModule2: TDataModule2
  2.   OldCreateOrder = True
  3.   Left = 27
  4.   Top = 63
  5.   Height = 612
  6.   Width = 812
  7.   object Table1: TTable
  8.     Active = True
  9.     BeforeInsert = Table1BeforeInsert
  10.     OnNewRecord = Table1NewRecord
  11.     DatabaseName = 'DBDEMOS'
  12.     OnFilterRecord = Table1FilterRecord
  13.     IndexName = 'ByCompany'
  14.     TableName = 'CUSTOMER.DB'
  15.     Left = 24
  16.     Top = 16
  17.     object Table1CustNo: TFloatField
  18.       Alignment = taLeftJustify
  19.       DisplayWidth = 7
  20.       FieldName = 'CustNo'
  21.       DisplayFormat = 'CN 0000'
  22.       MaxValue = 9999
  23.       MinValue = 1000
  24.     end
  25.     object Table1Company: TStringField
  26.       DisplayWidth = 25
  27.       FieldName = 'Company'
  28.       Size = 30
  29.     end
  30.     object Table1Addr1: TStringField
  31.       DisplayWidth = 21
  32.       FieldName = 'Addr1'
  33.       Size = 30
  34.     end
  35.     object Table1Addr2: TStringField
  36.       DisplayWidth = 28
  37.       FieldName = 'Addr2'
  38.       Size = 30
  39.     end
  40.     object Table1City: TStringField
  41.       DisplayWidth = 15
  42.       FieldName = 'City'
  43.       Size = 15
  44.     end
  45.     object Table1State: TStringField
  46.       DisplayWidth = 20
  47.       FieldName = 'State'
  48.     end
  49.     object Table1Country: TStringField
  50.       DisplayWidth = 20
  51.       FieldName = 'Country'
  52.     end
  53.     object Table1Zip: TStringField
  54.       DisplayWidth = 10
  55.       FieldName = 'Zip'
  56.       Size = 10
  57.       AttributeSet = 'ZipCode'
  58.     end
  59.     object Table1Phone: TStringField
  60.       DisplayWidth = 15
  61.       FieldName = 'Phone'
  62.       EditMask = '!999-000-0000;1;_'
  63.       Size = 15
  64.     end
  65.     object Table1FAX: TStringField
  66.       DisplayWidth = 15
  67.       FieldName = 'FAX'
  68.       EditMask = '!999-000-0000;1;_'
  69.       Size = 15
  70.       AttributeSet = 'USPhone'
  71.     end
  72.     object Table1TaxRate: TFloatField
  73.       DisplayWidth = 10
  74.       FieldName = 'TaxRate'
  75.       DisplayFormat = '0.00%'
  76.       AttributeSet = 'TaxRate'
  77.     end
  78.     object Table1Contact: TStringField
  79.       DisplayWidth = 20
  80.       FieldName = 'Contact'
  81.     end
  82.     object Table1LastInvoiceDate: TDateTimeField
  83.       DisplayWidth = 13
  84.       FieldName = 'LastInvoiceDate'
  85.     end
  86.   end
  87.   object DataSource1: TDataSource
  88.     DataSet = Table1
  89.     Left = 88
  90.     Top = 16
  91.   end
  92. end
  93.